Top 10k strings from Grand Prix Manager (1984)(Silicon Joy).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
8
3 +c-x)/c)>.125
2 z$="~LAP "+
2 te=lp/lap:
2 c(n)=c(f):
2 -(lp/lap):
2
2
2
1 ~GRAND PRIX MANAGER
1 z$=z$+"run out of"+
1 z$=z$+"broken down"+
1 z$=l$+" ":
1 z$="~~You want `"+
1 z$="~~OK. You can have `"+
1 z$="~~OK. How much do you want?~":
1 z$="~~No..you can only have `"+
1 z$="~~7~=UP ~6~=DOWN ~S~=SELECT Make your selection now.":
1 z$="~`"+z$+"!!This is Formula 1!!":
1 z$="~Your car is coming in for a pit"+l$(
1 z$="~Your car crashed last race : you"+l$(
1 z$="~You have no driver!":
1 z$="~You have hired "+d$(
1 z$="~You have fired "+d$(p)
1 z$="~You crashed because your..":
1 z$="~You can't race with no car!!":
1 z$="~YOU'VE WON THE CHAMPIONSHIP!!!!!":
1 z$="~Team":
1 z$="~THIS IS RACE "+
1 z$="~TEAM SUMMARY":
1 z$="~SPONSORSHIP":
1 z$="~SELECT DRIVER":
1 z$="~Race positions:":
1 z$="~Position Team Points":
1 z$="~PLEASE WAIT!":
1 z$="~PITSTOPS":
1 z$="~Oh dear...":
1 z$="~OF "+
1 z$="~Number Skill Wage ":
1 z$="~No. Name Skill Wage Team Fee ":
1 z$="~NEW SEASON":
1 z$="~Mechanics":
1 z$="~MENU":
1 z$="~MECHANICS REPORT.":
1 z$="~MANAGERIAL RATING":
1 z$="~LEAGUE TABLE":
1 z$="~LEADER BOARD":
1 z$="~HIRE MECHANICS":
1 z$="~GRAND PRIX NEWS":
1 z$="~GRAND PRIX MANAGER":
1 z$="~EXPENDITURE SUMMARY.":
1 z$="~END OF SEASON":
1 z$="~Driver":
1 z$="~Do you want to arrange a meeting with your sponsors? (Y/N).":
1 z$="~DO YOU WISH TO INVEST IN R+D??":
1 z$="~DO YOU WANT TO BUY A NEW CAR?":
1 z$="~DO YOU WANT A FULL OVERHAUL?":
1 z$="~DIFFICULTY SELECTOR":
1 z$="~Car":
1 z$="~Car Perfection Rating = "+
1 z$="~CAR SUMMARY":
1 z$="~Boy, you must like this game!!!":
1 z$="~BANK BALANCE = `"+
1 z$="~6. GO TO RACE.":
1 z$="~5. Rivals Summary.":
1 z$="~4. See Sponsors.":
1 z$="~3. Hire/Fire Mechanics.":
1 z$="~2. Car Summary.":
1 z$="~1. Driver Summary.":
1 z$="~"+f$(n):
1 z$="~"+(" "
1 z$="~ Team Mechanics Skill Time(secs)":
1 z$="~ RACE PLAN : WING ANGLE ":
1 z$="~ RACE PLAN : TYRES ":
1 z$="Your driver was lucky:he's OK!!":
1 z$="Your car has"+
1 z$="YOU "+("ONLY"
1 z$)/bnk)+((
1 x>c)+("small,"
1 x<c)+("deep"
1 x(n)=x(f):
1 x(n)=l(n):
1 ut=ut-nm*(fl=-1
1 te=lp/(lap*.75
1 rs+" THIS SEASON":
1 rn+" OUT":
1 r(n)=r(n-fl):
1 r(n)=r(f):
1 r(n)=c(n):
1 r(n);a$;" ";
1 r(n)*(r(n)>1
1 p+(-fl*nm)+fl
1 ot=ot-nm*(fl=1
1 n=n+(f*t):
1 n=n+(f$="7"
1 n<g)-(f$="6"
1 m(x)=m(x)-y:
1 m(x)=m(x)+y:
1 m$="201010202024141424242717172727"
1 lp>lap*.75
1 lp+" OUT OF "+
1 lp+" IN PROGRESS...":
1 l(r(n)*(r(n)
1 l$=" "
1 g=g+(m(n)*n):
1 fu=fu*(fu>0
1 f$=f$+" improves car by "+
1 f$="WELL DONE SPORT! YOU CAME FIRST!"
1 e$=e$+"your tyres were too "+("hard,"
1 e$=e$+"your tyre tread was too "+("smooth"
1 e$="wing angle was too "+("big,"
1 c=r(n)*(r(n)
1 c=(wet*.05759
1 c<x)+("soft,"
1 c(f)=r((p-f+1
1 c$= "
1 bnk=bnk-x*10000
1 bnk=bnk-g:
1 bnk=bnk-(d(
1 bnk=bnk+of:
1 bnk=bnk+g:
1 b$= "
1 a$= "
1 Race setup
1 Last season ";
1 G.P.M.
1 A Jones J Hunt S Moss N Lauda J Stewart G Hill N Piquet J Watson R Arnoux A Prost
1 =Very easy"
1 =Very difficult"',"
1 =SELECT WING ANGLE "'"
1 =Reduce angle"
1 =Increase angle,
1 =INCREASE
1 ;t$(c(n));
1 ;rs;" races per season???":
1 ;n;" ";t$(n):
1 ;"~Sorry..no progress made!!!~":
1 ;"~Our research has improved your"'"cars Perfection Rating by ";
1 ;"Your sponsor says..."
1 ;"Your sponsor is over the moon!!!":
1 ;"You have been fired due to your financial ineptitude.";
1 ;"You have `";bnk;" in the Bank.";
1 ;"Wing angle"
1 ;"WELLDONE":
1 ;"The maximum rating obtainable atthis Difficulty Level is ";
1 ;"Temperature: ";tmp;"F'";
1 ;"TYRE TREAD";
1 ;"TYRE COMPOUND";
1 ;"THAT WILL BUY A CAR WITH A"'" PERFECTION RATING OF ";x;".":
1 ;"Sponsors satisfaction rating is":
1 ;"Soft=-5";
1 ;"Smooth=1";
1 ;"Skill Morale";
1 ;"Select difficulty :"'',"
1 ;"SORRY,HE'S UNAVAILABLE!!":
1 ;"SERVICE COMPLETED!!!":
1 ;"Rain : ";wet;"%"
1 ;"RACE EXPENSES":
1 ;"Quiet - geniuses at work!":
1 ;"Programmed by P.Boulton":
1 ;"Press ~n~ for new game or any"'"other key to continue.":
1 ;"Press any key to play again.":
1 ;"Press any key to continue...":
1 ;"Press a key"
1 ;"Press Y/N."
1 ;"PITSTOP TIME : ";g(6
1 ;"OVERDRAFT STILL `";bnk:
1 ;"OPENING BALANCE";
1 ;"OH DEAR! YOUR TEAM IS BANKRUPT!":
1 ;"No. Skill":
1 ;"NOW LOADING"
1 ;"NICEONE!":
1 ;"LEAGUE POSITIONS BEFORE RACE":
1 ;"LEAGUE POSITIONS AFTER RACE ";rn:
1 ;"How much do you want to spend???"',
1 ;"Hard=+5";
1 ;"Final league positions follow..":
1 ;"FINISH";
1 ;"ENTER DRIVER YOU WISH TO HIRE"'"(or
1 ;"END OF RACE!":
1 ;"Do you wish to proceed??":
1 ;"Do you want race highlights?"''"(Y/N)":
1 ;"Difficulty selected is ";z$;
1 ;"Deep =10"
1 ;"Cost will be `";g:
1 ;"Car ";r(n)*(r(n)
1 ;"CLOSING BALANCE";
1 ;"ANGLE=";
1 ;"5. Petrol/Oils etc.":
1 ;"4. Travel Expenses":
1 ;"3. Hotel Bills":
1 ;"2. Mechanics Wages":
1 ;"1. Driver's Race Fee":
1 ;"% straight : ";100
1 ;"% bends : ";bnd;"%";
1 ;" in the Bank.":
1 ;" Your sponsor is very pleased!!!"
1 ;" This season
1 ;" NO TEAM "
1 ;" HE'S ALREADY DRIVING FOR YOU! ":
1 ;" COURSE DETAILS ";
1 ;" ";d$(n):
1 ;" DIFFICULTY = ";(df-.5
1 ;" RATING = ";
1 -(lp/(lap*.75
1 ,nm*(fl=-1
1 ,n;a$+" ":
1 +((lp/lap)*160
1 +"heating! "
1 +"due to over-"+
1 +" gas! "
1 + "
1 + "
1 + "
1 + "
1 *tmp)-(.06689
1 *sm*((rs-rn)/rs):
1 *bnd)+(.07
1 **********************
1 *(f$="d")+8
1 *(f$="d")+6
1 )-y))+(x*y))/z(1
1 )-(y*x*900
1 )+y))-(x*y))/z(1
1 )+(y*x*(1.6
1 )+(bnd*.09424
1 )+"stop.":
1 )+"need another!":
1 )+" hires "+
1 )+" HAVE "+(
1 ))=l(r(n)*(r(n)
1 (of*(of/g))
1 ((ot+ut)*cntr)
1 "How many races this season??"''
1 "HOW MUCH DO YOU WANT TO INVEST?"'
1 "Enter selection. ";
1 "Enter number",x'"Enter new name",
1 "Do you wish to"'"re-enter season length? (Y/N)"'',
1 "A Jones","J Hunt","S Moss","N Lauda","J Stewart","G Hill","N Piquet","J Watson","R Arnoux","A Prost"
1 " Player","Ferrari","Lotus","Brabham","Williams","Renault"
1 to change team names.";
1 to change driver names"''" or
1 mechanics":
1 if just looking.)"''
1 RATING REQUIRED."''
1 Player Ferrari Lotus Brabham WilliamsRenault
1 P.Boulton/Silicon Joy 1984."
1 P. Boulton 1984 **********************
1 MECHANICS!":
1 ENTER NUMBER OF MECHANICS
1